.R VLISP
*(LIBRARY LODLAP)
*
*; definition de la fonction ONEP                    ;
*; qui possede en VLISP la definition suivante :     ;
*; (DE ONEP (X) (EQ X 1))                            ;
*
*(LAP ''((ENTRY ONEP SUBR 1)
* (CAIE A1 ''1)
* (TDZA A1 A1)
* (MOVEI A1 ''T)
* (POPJ P))
*T)
*
*(TYPEFN ''ONEP)
*
*(ONEP 1)
*
*(ONEP)
*
*; Definition des fonctions           ;
*; (DE CADDDAR (X) (CAR (CDDDAR X)))  ;
*; (DE CADDDDR (X) (CDR (CDDDAR X)))  ;
*
*(LAP ''((ENTRY CADDDDR SUBR 1)
* (SKIPA A1 :MEM A1)
* (ENTRY CADDDAR SUBR 1)
* (HLRZ  A1 :MEM A1)
* (JRST  0 CADDDR))
*T)
*
*(CADDDAR ''((A B C D E) F G H I J))
*(CADDDDR ''((A B C D E) F G H I J))
*
*; Redefinition de la fonction REVERSE standard ;
*; (DE REV (L1 L2)                              ;
*;   (WHILE (LISTP L1)                          ;
*;     (SETQ L2 (CONS (CAR L1) L2)              ;
*;           L1 (CDR L1))))                     ;
*
*(LAP ''((* "REVERSE tres standard.")
*RE
* (HLL 2 :MEM 1)
* (CONS 2)
* (CDR 1 1)
* (ENTRY REV SUBR 2)
* (JPLIST 1 RE)
* (MOVEI 1 0 2)
* (POPJ P))
*T)
*
*(REV '(A (B C) D . E) '(F G H))